From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 13 Jun 2007 00:03:39 +0000 (+0000)
Subject: (scheme-start-file): Use user-emacs-directory.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18455
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8c3d14de472d01d147f68e76994d09c2e6146025;p=emacs.git

(scheme-start-file): Use user-emacs-directory.
---

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 12840441a6a..b89470b0045 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -271,7 +271,7 @@ Search in the directories \"~\" and \"~/.emacs.d\", in this
 order.  Return nil if no start file found."
   (let* ((progname (file-name-nondirectory prog))
 	 (start-file (concat "~/.emacs_" progname))
-	 (alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
+	 (alt-start-file (concat user-emacs-directory "init_" progname ".scm")))
     (if (file-exists-p start-file)
         start-file
       (and (file-exists-p alt-start-file) alt-start-file))))